home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / auldlang.bas < prev    next >
Encoding:
BASIC Source File  |  1984-05-14  |  2.5 KB  |  64 lines
  1. 10 '***********   AULD LANG SYNE
  2. 11 CLS:KEY OFF
  3. 12 PLAY "mbo3t100l8"
  4. 20 GOSUB 2000
  5. 30 GOSUB 1000
  6. 40 GOSUB 3000
  7. 42 GOSUB 4000
  8. 45 GOSUB 1000
  9. 46 COLOR 7
  10. 50 END
  11. 1000 PLAY "mbo3t100l8"
  12. 1010 PLAY "c4f4.":PLAY "f":PLAY"f4a4g4.fg4a4f4.
  13. 1020 PLAY "fa4o4c4d2.d4c4.o3aa4
  14. 1030 PLAY "f4g4.fg4agf4.dd4c
  15. 1040 PLAY "f2.o4d4c4.o3aa4f4g4.fg4o4d4c4.o3aa4o4c4d2.
  16. 1050 PLAY "d4c4.o3aa4f4g4.fg4agf4.dd4c4f2.
  17. 1060 RETURN
  18. 2000 LOCATE 1,20: PRINT "*";
  19. 2001 LOCATE 4,14:PRINT "*";
  20. 2002 LOCATE 2,17: PRINT "* *";
  21. 2004 LOCATE 4,14:PRINT "*";
  22. 2005 LOCATE 5,1:PRINT STRING$(25,219)
  23. 2010 LOCATE 6,4: PRINT STRING$(19,219)
  24. 2020 LOCATE 7,7:PRINT STRING$(13,219)
  25. 2030 LOCATE 8,10: PRINT STRING$(7,219)
  26. 2040 FOR N = 1 TO 3
  27. 2050 LOCATE 8 + N, 13:PRINT CHR$(219)
  28. 2060 NEXT N
  29. 2070 LOCATE 12,3:PRINT STRING$(21,219)
  30. 2080 RETURN
  31. 3000 RESTORE 10000
  32. 3005 ROW = 4:STARTCOL = 40
  33. 3006 LOCATE ROW,STARTCOL
  34. 3010 READ A
  35. 3020 IF A>30 THEN PRINT CHR$(A);:GOTO 3010
  36. 3030 IF A=0 THEN ROW = ROW + 1 : GOTO 3006
  37. 3040 IF A=-1 THEN RETURN
  38. 3050 READ B: PRINT STRING$(A,B);:GOTO 3010
  39. 4000 RESTORE 20000
  40. 4001 COLOR 15
  41. 4005 ROW = 17:STARTCOL = 4
  42. 4006 LOCATE ROW,STARTCOL
  43. 4010 READ A
  44. 4020 IF A>30 THEN PRINT CHR$(A);:GOTO 3010
  45. 4030 IF A=0 THEN ROW = ROW + 1 : GOTO 3006
  46. 4040 IF A=-1 THEN COLOR 7,0:RETURN
  47. 4050 READ B: PRINT STRING$(A,B);:GOTO 3010
  48. 10000 DATA 219,32,219,32,32,220,220,32,220,3,32,220,0
  49. 10010 DATA 3,219,32,220,220,219,32,219,223,219,32,219,223,219,32,222,32,222,0
  50. 10020 DATA 219,32,219,32,219,220,219,32,219,220,219,32,219,220,219,32,32,219,0
  51. 10030 DATA 8,32,219,3,32,219,4,32,222,0,0,0
  52. 10040 DATA 8,32,219,32,222,32,3,220,0
  53. 10050 DATA 8,32,221,219,222,32,219,220,220,32,221,220,222,0
  54. 10060 DATA 8,32,221,32,219,32,219,220,219,32,219,32,219,0
  55. 10070 DATA 0,0,0
  56. 10080 DATA 6,32,219,32,219,32,3,220,32,32,220,220,32,220,3,32,219,0
  57. 10090 DATA 6,32,222,219,221,32,219,2,220,32,2,220,219,32,219,223,219,32,219,0
  58. 10100 DATA 7,32,219,32,32,219,220,219,32,219,220,219,32,219,3,32, 254
  59. 15000 DATA -1
  60. 20000 DATA 32,219,32,32,3,219,32,3,219,32,2,223,219,0
  61. 20010 DATA 32,219,32,32,219,220,219,32,219,220,219,32,32,220,219,0
  62. 20020 DATA 32,219,32,32,32,32,219,32,219,220,219,32,220,220,219,-1
  63. 2,220,220,219,-1
  64.